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areey ; Detailed Current Edit History 
ee 
HSIMAX1, MTHSJMAX1, MTHSAMAX1 
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16-SEP-1984 01:46: AX/VMS Macro v04-00 P 1 
gree i ake F1SGi8g HATANTS Sacre Oe Ons: 28% cl, 
-TITLE MTHSMAX1 IMAX1 JMAX1, and AMAX1 functions 
LIDENT /1-002/ : File: MTHMAX1 


MARAAARAAAALALAALASLAAALALAAA LEASE SALAS EELS ASRS EERE SERRE EERE ERE EE EE TERR 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


ie 
2 
& 
a 
e 
IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 

ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. : 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
CORPORATION. * 
a 
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® 

® 

+ 

® 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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FACILITY: MATH LIBRARY 
+ 


+ 

ABSTRACT: 
This module contains maximum value functions which take 
floating-point values as arguments. 


VERSION: 0 
HISTORY: 


AUTHOR: 
Jonathan M. Taylor, 12-JUL-77: Version 0 


MODIFIED BY: 
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-SBTTL HISTORY ; Detailed Current ne History 


; Edit History for Version 0 of MTHMAX1 


$ = Remove MTHSFLAG_JACKET. TNH ss Hite} -78 
- - Fix access violation. TNH 

i's 2 Kagete.. version number and copyr tine notice. JBS 16-NOV-78 
1-002 = Add to the PSECT directive. JBS 22-DEC-78 
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MTHSMAX1 IMAX1 JMAX1, and AMAX1 functions 16-SEP-1984 01:46:4 AX/VMS v04-00 P 
1-002 DECLARATIONS “ Br eee 198 11536538 EMTUNTE eReTRTMMAXGomaR:1 29° (8) 
‘ -SBTTL DECLARATIONS 
: ; INCLUDE FILES: 
és 3 oerr.mar 
83 $ 
o8 : a 
0 5 : 
ae 
I etn 
75: 
$00 
44 77; 
00 78 ; PSECT DECLARATIONS: 
ieee ++ -PSECT _MTHSCODE PIC, SHR, LONG, EXE, NOWRT 
0000 1; 
0000 ¢ ; EQUATED SYMBOLS: 
0000 3 NONE 
0000 Be 3 
0000 5 
0000 Hy § 
0000 7 ; OWN STORAGE: 
0000 88 ; NONE 
0000 89 ; 
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~SBTTL MTHSIMAX1, MTHSJMAX1, MTHSAMAX1 


wr 


p++ 

3 FUNCTIONAL DESCRIPTION: 

: Call routine MAXF to compute the maximum of nm arguments, n is 
3 reater than or equal to 1. 

F eturn result converted to the proper type. 


- 


CALLING SEQUENCE: 
Maximum.ww.v =MTHSIMAX1 ({arg.rf.r)) 
Maximum.wl.v =MTHSJMAX1 ({arg.rf.r)) 
Maximum.wf.v =MTHSAMAX1 (Carg.rf.r)) 


OOOOCQOOooQoQoQooooooo 


INPUT PARAMETERS: 
The mn parameters are single-precision floating-point values 
and are call-by-reference. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
Reserved Operand and Integer Overflow exceptions can occur. 
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0 
400 -ENTRY MTHSIMAX1, “M<IV> 
11 19 BSB MAXF ; RO = max ar 
50 50 4 4 CVTFW RO, RO 3; INTEGER*2 i 
04 7 RET 
400 -ENTRY MTHSJMAX1I, “M<IV> 
9° 1 & BSB MAXF ; RO = max arg 
50 0 4A 5 CVTFL RO, RO 3 INTEGER*4 i 
04 of RET 
000 1 -ENTRY MTHSAMAX1, “M<> 
m3 i BSB MAXF ; RO = max arg 
04 13 RET 


—Zz 


K 
d AMAX1 functions 


a 
> 
=z 
—_ 


 ] 


384 14 48 pas /ves Macro V04-00 Page 5 


SJMAX1, MTHSAMAX1 


MTHRTL.SRCJMTHMAX1 MAR; 1 (4) 


3+ 
3; MAXF returns the Largest of the REAL*4 args. 


: 


ny = 
own 


w 
bad 


one ul "10 © 
rere rere rere re 


Sooo OCOOOOOOOOOOoOoSo , JZ 


SOOCCCCCOOCOOOOoOoOooO 


PAGO OMIMAVIMNAUIVIUIVIVINE & TO 


FW OOONOUES WO 0 


OWS VNUIW FO FP OMMmnu™:— 


St es nt a tt 


RNMOPONONOND SS SS oo 


R1 = number of orgs 
Ap -> first arg adr 

get trial max 

check arg count 

if this arg is greater then trial max 
then it becomes trial max 

else ignore it 

check arg count 
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MTHSMAX1 IMAX1 JMAX1, and AMAX1 functions at it 4 1336: $6 rir Se o V04 * Page § 
Symbol table ~SEP-1984 MTHRTL.S SATHMAX MAR; 1 (4) 
MAXF 00015 R 1 
MTHSAMAX1 10 RG 1 
MTHSIMAX1 . RG 1 
MTHSJMAX1 RG 1 

eeeeeeeooeeoesce + 

H 3 _Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
OS, £8888 808 ( $:} 89 9-3 NOPIC USR CON ABS’ LCL vat NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE 00000028 (¢ 43.) ) PIC USR CON REL LCL SHR EXE RD WNOWRT NOVEC LONG 

Fees nem a aoe ee ome ee + 
! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization Me 00:00: 8-08 00:00:01.10 
Say oaee- "eg HBS) HER 
Ty bowrnses BB Behe: 8 
Symbol table output 2 9:00:00.01 00:00:00.01 
Psect synopsis output 2 0:00:00.02 00:00:00.10 
Cross-reference output 0 aes $4 BS 00:00:00.00 
Assembler run totals 300 00:00:01. 00:00:08.19 


he working set Limit was 900 pages. 

? 0 bytes (4 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space wm yeeeeee to hold 4 non-local and 3 local symbols. 
164 source Lines were read in Pass 1, producing tS object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 
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Macro Library name Macros defined 
“S255SDUAZ8:(SYSLIBISTARLET.MLBs2 0 ttt 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE =SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:MTHMAX1/0BJ=OBJ$:MTHMAX1 MSRC$:MTHMAX1/UPDATE=(ENHS:MTHMAX1) 
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